|
|
 |
|
|
|
|
432: Screen.MousePointer = vbDefault
433: MsgBox Err.Description
434: End Sub
435:
436: '##ModelId=352AB4EF0096 'Updates a single record to DB
437: Public Sub updateOneRecord(Optional argClientObject As Object)
438: On Error GoTo UpdateErr
439:
440: With mvarpResultset
441: .Update
442:
443: If pAddNewFlag Then
444: .MoveLast 'move to the new record
445: mvarpEOF = True
446: End If
447: End With
448:
449: pEditFlag = False
450: pAddNewFlag = False
451: pDataChanged = False
452: Exit Sub
453:
454: UpdateErr:
455: MsgBox Err.Description
456: End Sub
457:
458:
459: '##ModelId=352AB4EF021C
460: Public Sub addNewRecord()
461: On Error GoTo AddErr
462: With mvarpResultset
463: .AddNew
464: lblStatus.Caption = Add record
465: pAddNewFlag = True
466: If .RecordCount > 0 Then
467: mvBookMark = .Bookmark
468: Else
469: mvBookMark = vbNullString
470: End If
471: End With
472:
473: Exit Sub
474: AddErr:
475: MsgBox Err.Description
476: End Sub
477:
478: '##ModelId=352AB4EF02F8
479: Public Sub addBySQL()
480: End Sub
481:
|
|
|
|
|
|